home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS Toolkit
/
BBS Toolkit.iso
/
rbbs_pc
/
gm313exe.zip
/
GMON151B.MRG
< prev
next >
Wrap
Text File
|
1988-01-02
|
3KB
|
70 lines
* MERGE THIS BLED FILE AGAINST RBBS 15.1B'S RBBSSUB2.BAS TO ALLOW YOU TO RUN
* GMON WITH YOUR MODIFIED 15.1B. THIS ALSO INCLUDES PASSWORD BYPASS
* ON RETURN FROM DOORS, BUT THE USER WILL STILL GET THE STATUS REPORTS
* ON RE-ENTRY TO RBBS. MIKE HAMMER, SYSOP INVESTMENT HEAVEN RBBS, RENO, NV.
* REPLACEIN LINES - NOTE THEY ARE ALL IN ONE BLOCK OF THE CODE.
10980 WEND
CLOSE 2
INFILE = (X > 0)
END SUB
' $SUBTITLE: 'DOOREXIT -- Setup to exit to a "door"'
' $PAGE
' SUBROUTINE NAME -- DOOREXIT
'
' INPUT PARAMETERS -- PARAMETER MEANING
' MULTI.LINK.PRESENT
' NODE.ID$
' RBBS.BAT$
' Z$
'
' OUTPUT PARAMETERS -- Q NUMBER OF LINES TO WRITE OUT TO
' RCTTY.BAT$
' B$() LINES TO WRITE OUT TO RCTTY.BAT$
'
' SUBROUTINE PURPOSE -- SET UP B$() AND Q IN ORDER TO CALL "EXITRBBS" AND
' EXIT RBBS-PC TO INVOKE ANTOHER PROGRAM
'
SUB DOOREXIT STATIC
10987 A$(1) = DISK.FOR.DOS$+ "COMMAND /C " + Z$ + NODE.ID$
A$(2) = RBBS.BAT$
PRIVATE.DOOR = -2 'MS/SOTR
Z$ = LEFT$(Z$,INSTR(Z$,".")-1)
A$ = Z$ + " door opened at " + TIME$ + " on " + DATE$
SUBROUTINE.PARAMETER = 5
CALL TPUT
CALL UPDTCALR (LEFT$(Z$,LEN(Z$)-4) + " door opened!",2)
CLOSE 2
OPEN "O",2,"DORINFO" + MID$(NODE.ID$,2) + ".DEF" 'MS/SOTR - RBBS 15.1C
PRINT #2,RBBS.NAME$ 'MS/SOTR - RBBS 15.1C
PRINT #2,SYSOP.FIRST.NAME$ 'MS/SOTR - RBBS 15.1C
PRINT #2,SYSOP.LAST.NAME$ 'MS/SOTR - RBBS 15.1C
PRINT #2,COM.PORT$ 'MS/SOTR - RBBS 15.1C
PRINT #2,BAUD.PARITY$ 'MS/SOTR - RBBS 15.1C
PRINT #2,NETWORK.TYPE 'MS/SOTR - RBBS 15.1C
PRINT #2,FIRST.NAME$ 'MS/SOTR - RBBS 15.1C
PRINT #2,LAST.NAME$ 'MS/SOTR - RBBS 15.1C
PRINT #2,CITY.STATE$ 'MS/SOTR - RBBS 15.1C
PRINT #2,GR 'MS/SOTR - RBBS 15.1C
PRINT #2,USER.SECURITY.LEVEL 'MS/SOTR - RBBS 15.1C
CALL TIMEREMAIN (TIME.REMAINING!) 'MS/SOTR - RBBS 15.1C
PRINT #2,INT(TIME.REMAINING!) 'MS/SOTR - RBBS 15.1C
PRINT #2,USER.OPTIONS$ 'GMON MODIFICATION
CALL RBBSEXIT (A$(),2)
END SUB
' $SUBTITLE: 'RBBSEXIT -- Setup to exit to a RBBS'
' $PAGE
' SUBROUTINE NAME -- RBBSEXIT
'
' INPUT PARAMETERS -- PARAMETER MEANING
' LINE.ARA Array of lines to write to batch file
' NUM.LINES How many lines in array
'
' OUTPUT PARAMETERS -- RCTTY.BAT$
'
' SUBROUTINE PURPOSE -- TO CREATE A BATCH FILE THAT CONTROL CAN BE PASSED TO
' AND TO EXIT RBBS-PC WHILE STILL KEEPING CARRIER UP
'
SUB RBBSEXIT (LINE.ARA$(1),NUM.LINES) STATIC